home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of Shareware
/
Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso
/
mac
/
ZIPPED
/
DOS
/
NETWORKS
/
TPAPI.ZIP
/
NWFSERV.PA1
< prev
next >
Wrap
Text File
|
1992-03-02
|
4KB
|
82 lines
{!R! FONT 15; FTMD 15; EXIT;}
{***************************************************************************}
{** Program : NWFSERV **}
{***************************************************************************}
{** Version : 1.3 ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : FSERV **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** Provides Netware File Services **}
{** **}
{** **}
{** **}
{** This code is (c) 1991,1992 Tony Covelli **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
UNIT NWFSERV;
INTERFACE
USES
netware, nwvar;
TYPE
pFServOBJ = ^FServOBJ;
FServOBJ = object (NetwareOBJ)
CONSTRUCTOR Init;
FUNCTION EraseFiles (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
SearchAttributes : BYTE) : WORD;
FUNCTION FileServerFileCopy (VAR SourceFile, DestinationFile : FileOfByte; SourceFileOffset,
DestinationFileOffset, NumberOfBytesToCopy : LONGINT;
VAR NumberOfBytesCopied : LONGINT) : WORD;
FUNCTION GetExtendedFileAttributes (FilePath : PathNameType; VAR ExtendedFileAttributes : BYTE) : WORD;
FUNCTION PurgeAllErasedFiles : WORD;
FUNCTION PurgeErasedFiles : WORD;
FUNCTION RestoreErasedFile (DirectoryHandle : BYTE; VolumeName : VolumeNameType;
VAR ErasedFileName, RestoredFileName : FileNameType) : WORD;
FUNCTION ScanFileInformation (DirectoryHandle : BYTE; FilePath : PathNameType; SearchAttributes : BYTE;
VAR SequenceNumber : INTEGER; VAR FileName : FileNameType;
VAR FileAttributes, ExtendedFileAttributes : BYTE; VAR SizeOfFile : LONGINT;
VAR CreationDate, LastAccessDate : WORD; VAR LastUpdateDateAndTime,
LastArchiveDateAndTime : LONGINT; VAR FileOwnerID : OT_BinderyID) : WORD;
FUNCTION SetExtendedFileAttributes (Filepath : PathNameType; ExtendedFileAttributes : BYTE) : WORD;
FUNCTION SetFileInformation (DirectoryHandle : BYTE; FilePath : PathNameType; SearchAttributes,
FileAttributes, ExtendedFileAttributes : BYTE; CreationDate,
LastAccessDate : WORD; LastUpdateDateAndTime,
LastArchiveDateAndTime : LONGINT; FileOwnerID : OT_BinderyID) : WORD;
DESTRUCTOR Done; VIRTUAL;
END;